home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / ELECTRIC / DSPICE0S.ZIP / cpytb8.c < prev    next >
C/C++ Source or Header  |  1992-11-22  |  2KB  |  59 lines
  1. /* cpytb8.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /* Common Block Declarations */
  9.  
  10. struct {
  11.     doublereal value[200000];
  12. } blank_;
  13.  
  14. #define blank_1 blank_
  15.  
  16. /*<       subroutine cpytb8(itabo,itabn) >*/
  17. /* Subroutine */ int cpytb8_(itabo, itabn)
  18. integer *itabo, *itabn;
  19. {
  20.     /* Local variables */
  21.     static integer locn, loco;
  22.     extern /* Subroutine */ int getm8_(), copy8_();
  23.     static integer isize;
  24. #define nodplc ((integer *)&blank_1)
  25. #define cvalue ((complex *)&blank_1)
  26.     extern /* Subroutine */ int sizmem_();
  27.  
  28. /*<       implicit double precision (a-h,o-z) >*/
  29.  
  30. /*     this routine copies a table.  its use is made necessary by the */
  31. /* fact that only one pointer is allowed per table. */
  32.  
  33. /* spice version 2g.6  sccsid=blank 3/15/83 */
  34. /*<       common /blank/ value(200000) >*/
  35. /*<       integer nodplc(64) >*/
  36. /*<       complex cvalue(32) >*/
  37. /*<       equivalence (value(1),nodplc(1),cvalue(1)) >*/
  38.  
  39.  
  40. /*<       call sizmem(nodplc(itabo),isize) >*/
  41.     sizmem_(&nodplc[*itabo - 1], &isize);
  42. /*<       call getm8(nodplc(itabn),isize) >*/
  43.     getm8_(&nodplc[*itabn - 1], &isize);
  44. /*<       loco=nodplc(itabo) >*/
  45.     loco = nodplc[*itabo - 1];
  46. /*<       locn=nodplc(itabn) >*/
  47.     locn = nodplc[*itabn - 1];
  48. /*<       call copy8(value(loco+1),value(locn+1),isize) >*/
  49.     copy8_(&blank_1.value[loco], &blank_1.value[locn], &isize);
  50. /*<       return >*/
  51.     return 0;
  52. /*<       end >*/
  53. } /* cpytb8_ */
  54.  
  55. #undef cvalue
  56. #undef nodplc
  57.  
  58.  
  59.